
Cl 

G 

CD 

O 

o 

LENGTH OF A FILE DIRECTORY ENTRY ® 

. O 

LENGTH OF THE DISK LABELS 

o 

NUMBER OF PROTECTED BLOCKS 

o 

NUMBER OF WORDS IN A FILE BLOCK O 

O 

O 

O 

O 

O 

o 

o 

o 

o 

o 


o 
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U 0 0 G 0 

0 111 G 05 U 0 


4 3 


UJP 

i w i r 



0 0 G U 1 


4 4 

N A M E 

EUU 

z 



0 0 0 0 4 


45 

NAMED 

EQU,C 

*-z 


oaooi 

62 7 Ci h 2 6 3 


46 


BOO 

2,SYSTEM 

DEFAULT NAME FOR THE OVERLAY 


0 0 0 0 3 


4 7 

HX3PTR 

EQU 

- - Z 


a a o o 3 

00001474 


48 


00 

MX3L.IST 

POINTER FOR OTHER ROUTINES 


0 0 0 04 


4 9 

DISK 

EQU 

f-L 


OOOU4 

2 4 316 2 A 2 


5 0 


BCD 

.1, DISK 



0 0 0 0 5 


51 

BIT 2 3 

EQU 

*-Z 


0 0 0 05 

40000000 


5 2 


OCT 

40000000 



0 0 0 0 6 


5 3 

SY.SLIB 

EQU 

*-z 


0 0 0 0 6 

62706243 


54 


SCO 

2 , S Y S L18 



0 00 40 


5 5 

A PARITY 

£CIU,C 

*-Z 


0 0 0:10 

77442544 


5 6 


SCO 

5) a MEMORY 

PARITY ERROR 


0 00 15 


57 

WC 

EQU 

*-z 

BUFFER LENGTH FOR I/O TRANSFERS 

0 0 0 15 

0 0 0 010 0 0 


5 8 


VFO 

A24/WPF6 



0 0016 


59 

PERSIST 

EQU 

*-Z 

LIMIT FOR MASS STORAGE ERRORS 

0 0 U 16 

00001747 


60 


DEC 

999 



0 00 17 


61 

IR 

EQU 

f. - z 

IRRECOVERABLE HASS STORAGE ERROR 

0 0 017 

00000017 


6 2 


HLT 

*-Z 





6 3 


IF 

--Z-203 NE 

0, SOMEBODY BLEW IT 

0 0 020 

0 0 0 0 0.0 0 0 


64 


VFO 

09/000,A15/IMPURE 

0 0 02 1 

14000000 


6.5 


NOP 

IMPURE 


0 0 022 

11000040 

00010 0 

6 6 


ECHA 

MPARITY 


0 0 023 

14700064 


67 


VFD 

09/147,C15/MPARITY+20 ENQ 

0 0 024 

00700361 


68 


RTJ 

OUT 


0 0 025 

00000025 


6 9 

70 

71 


..HLT 

*-.Z 



0 0026 


TEN 

EQU 

*-Z 


0 0026 

DO 0 0 0012 


72 

7 3 

74 


DEC 

10 



0 0 0 2 7 


75 

SECPf 8 

EQU 

*-z 

SECTORS PER FILE BLOCK 

0 0 0 2 7 

00 0 0 00 10 


7b 


DEC 

8 

853/854 

0 0 030 

00 UU 00113. 


7 7 


DEC 

8 . 

853/854 

0 0 0 3 1 

00000304 


7 a 


DEC 

4 

841 




79 






0 0 0 32 


80 

SECPCYL 

EQU 

“•-7 

SECTORS PER CYLINDER 

0 0 032 

0 0 G 0 0 24 U 


8 1 


DEC 

10*16 

353/854 

0 0 033 

0 U 0 1 0 Q 0 0 


82 


DEC 

128*32 

313/814 

0 0 054 

0000 0430 


83 

/ 

DEC 

2 0*14 

841 
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ROUTINE TO READ A FILE BLOCK FROM THE DISKS 

CALL WITH FILE BLOCK NUMBER IN A AND CORE ADDRESS IN INDEX 1 




91 • 

9 ? 

------- 

V V V V V V V 

'*' T V 3 !~ V 

V V '4* 'I' *»* V T 1* V “V V V V V -1* T V "4' V 

V Y Y Y Y v ^ Y Y Y Y Y Y Y Y Y V V Y Y Y Y "V Y Y Y V V 


0 00 35 

READ 

EQU 


Z 


0 0 035 

01000000 

9 3 


UJP 


IMPURE 


0 0036 

14700074 

9 4 


ENQ 


74B 

OPERATION CODE FOR INPW 

0 0 037 

00700120 

9 5 


RTJ 


PRESET 

INITIALIZE THINGS FOR THE I/O 

0 0 040 

77100040 

9 6 


SEL 


406,SELECT 

SELECT READ 

0 0 0 41 

01000230 

9 7 


UJP 


ERROR 


0 0 U 42 

00700176 

9 6 


RTJ 


IOX 

READ THE BLOCK 

00043 

00700250 

99 


RTJ 


COMPLAIN 

COMPLAIN ABOUT THE HARDWARE 

0 0 044 

01000035 

100 


UJP 


READ 

DONE AT LAST 



101 


w „„ 



Y Y V V Y Y Y Y V Y Y Y Y Y Y Y Y V Y Y Y Y V Y V Y ^ Y Y Y 



10 3 

V 






104 

-V' 

ROUTINE TO 

WRITE A FILE BLOCK 

ONTO THE DISKS 



10 5 


CALL 

WITH 

FILE BLOCK NUMBER IN 

A AND CORE ADDRESS IN INDEX 1 



10 6 

Y *y> y 



’*«*' V V Y V V Y V Y Y Y Y Y Y V Y V Y T Y 

Y Y T V V Y Y Y Y Y Y Y Y Y Y Y Y Y ^ Y Y Y Y Y Y Y T Y Y 



10 6 






00045 

lag 

. WRITE 

ECU 


* ~ z 


0 0045 

OiOOOQQO 

110 


UJP 


IMPURE 


0 0 046 

14700076 

in 


ENQ 


768 

OPERATION CODE FOR QUTW 

0 0 047 

00700120 

112 


RTJ 


PRESET 

INITIALIZE THINGS FOR THE I/O 

0 0 050 

77100041 

113 


SEL 


41B,SELECT 

SELECT WRITE 

0 0 051 

01000230 

114 


UJP 


ERROR 


0 0052 

00700176 

115 


RTJ 


IOX 

WRITE THE BUFFER OUT 

0 0 053 

00700165 

116 


RTJ 


LOAD 

LOAD THE ADDRESS REGISTER AGA 

0 0 054 

77100042 

117 


SEL • 


42B , SELECT 

SELECT WRITE CHECK 

00055 

01000230 

113 


UJP 


ERROR 


0 0056 

00700176 

119 


RTJ 


IOX 

PERFORM A WRITE CHECK 

0 0 0 5 7 

00700250 

120 


RTJ 


COMPLAIN 

COMPLAIN ABOUT THE HARDWARE 

0 0 06 0 

01000045 

121 


UJP 


WRITE 

AND EXIT 


o 


o 
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0 0 0 61 



12 3 

PRESET X 

EUU 


OOObi 

3120123/ 



124 


SB A 


GO 06 2 

03300145 



12 5 


AZJ ,L T 


0 U 05 3 

46U00076 



126 


SCHA 

o 

0 0 0 64 

20201236 



12 7 


LDA 

00065 

03200145 



128 


AZJ , GE 


0 0 0 6 8 

44000225 



129 


SWA 


0 0 067 

12000014 



13 0 


SNA 

o 

0 0 0 70 

77 5 40 0 00 



131 


A C I 


0 0 071 

53500000 



132 


TAI 


0 0 072 

17100007 



133 


ANI 


0 0 0 73 

12077755 



13 4 


SHA 

o 

0 0 074 

53600000 



135 


TAI 


0 0075 

17200003 



±■3 6 


ANI 



0 00 76 



137 

ADQ3AVE 

EQU 


0 JO 76 

11000000 

0 U 0 0 0 

0 

13 8 


ECHA 

o 

0 0 077 

.5020 0027 



139 


HU A 


0 010 0 

13000030 



140 


SHAQ 


0 U10 1 

40001235 



141 


STA 


0 010 2 

51200032 



142 


OVA 

o 

00103 

12 40 0 014 



143 


SHQ 


0 010 4 

13000014 



144 


SHAQ 


0 010 5 

40001464 



145 


STA 


3 U 1U 6 

20 0 0 0 015 



146 


LDA 

o 

00107 

30000201 



147 


ADA 


U 01.10 

44000200 



14 8 


SWA 


0 0111 

14600001 



149 


ENA 


00112 

12100000 



15 Q 


SHA 

o 

0 01.13 

16610000 



151 


XOA 

0 0114 

44000115 



15 2 


SWA 


0 U 115 

77510000 



153 


IOCL 


0 0116 

14100115 



154 


ENI 

o 

0 0117 

0 0 7 U 0 2 2 3 



155 


RTJ 


0 0120 



. 156 

PRESET 

EQU 


0 012 0 

01000000 



157 


UJP 


0 0121 

40001230 



15 8 


STA 

o 

00122 

43001000 

0 0200 

0 

15 9 


SQCH 

0 0123 

47100201 



16 0 


STI 


00124 

47200247 



161 


STI 


0 0125 

06300152 



162 


AZJ »LT 

o 

0 0126 

14700067 



163 


ENQ 

00127 

43 0 016 3 6 

0 0347 

2 

164 


30CH 


0 013 0 

43001637 

00347 

3 

165 


SQCH 


0 0131 

14577777 



166 


ENG ,S 

o 

00132 

14101000 



167 


ENI ; :6 


0 0133 

06201474 



168 


MEG 


0 013 4 

01000137 



169 


UJP 


00135 

20101475 



170 


LDA 

o 

0 013 6 

0 3.10 013 2 



171 


AZJ,NE 


0 013 7 

142 0.00 0 0 



172 


ENI 


00140 

21201241 



173 


LOG 


0 0141 

03700061 



174 


AQJ,LT 

o 

0 0142 

15200002 



175 


I N I 

0 0143 

05200176 



17 6 


ISG 


00144 

01000140 



177 


UJP 



00145 



178 

PANICZ 

EQU 

o 

0 0145 

53200000 



179 


TIA 

00146 

13077746 



180 


SHAQ 


0 0147 

51000026 



181 


OVA 


0 015 0 

42001636 

0 0347 

2 

18 2 


SACH 

o 

0 0151 

43001637 

0 0347 

3 

133 


SQCH 


0 016 2 



134 

PANICX 

EQU 


0 0152 

20001230 



18 5 


LDA 


0 0 15 3 

14177770 



186 


ENI 

o 

0 0154 

14700000 



18 7 


ENQ 

0 0155 

1300 DO 03. 



18 8 


SHAQ 


00156 

43401665 

0 0355 

1 

189 


SQCH 


0 015 7 

02100154 



19 0 


IJI 

o 

0 016 0 

11001600 

0 0 340 

0 

191 


ECHA 

0 0161 

14701667 



19 2 


VFD 


0 0162 

00700361 



193 


RTJ 


0 016 3 

54200247 



194 


LOI 

o 

0 0164 

01000017 



195 


UJP , 





19 6 








197 





0 U165 



198 

LOAD 

EQU 

o 

0 016 5 

01000000 



199 


UJP 

0 0166 

7 7 1 J 0 0 1 0 



20 0 


SEL 


00157 

01000230 



201 


UJP 


O 


a 


-z 

DEVBLK » X2 
PANICZ 
ADOS AVE 
OEVLUN,X2 
PANICZ 
CNCOOE 
12 

1 

7.1 
-13 
2 

3.2 ; 

*-z 

IMPURE 
SECPFBiX2 
2 A 

ERRORS 

3ECFCYL»X2 

12 

12 

ADDRESS 
WC 
FWA 
LW A 
1 

0,1 

10000B 

*-Z'+i 

IMPURE 

*-Z~i,XI 

CONNECT 

*-2 

IMPURE. 

BLKTEMP 
I OP 

FWA,XI 
X.2TEMP , X2 
PANICX 
67 8 

WHEREUNT 
WHEREUNT+1 
7 7 7 7 7 B 

MXSLIST,2 

MXSLIST+i*1 
*~Z ~4 
0,2 

DEVBLK+2,2 

PRESET X 
2. X 

2* { DEVL1ST-1) ,X2 
*-Z~4 

*~Z 


TEN 

WHEREUNT 

WHEREUNT+1 

*-Z 

BLKTEMP 
- 7 , XI 
Q 
3 


SUBTRACT THE LOW FILE BLOCK 
JUMP IF ILLEGAL ADDRESS 
SAVE THE RELATIVE BLOCK NUMBER 
LOAD THE CONNECT CODE 
JUMP IF NOT ON LINE 


LOAD THE CHANNEL INDEX REGISTER 


GET THE NUMBER OF CYLINDERS CODE 


ENTER RELATIVE BLOCK NUMBER 
CONVERT TO SECTOR NUMBER 


CONVERT TO DISK ADDRESS 


LOAD THE BUFFER LENGTH 
CALCULATE FWA+1 
INITIALIZE THE I/O COMMAND 
CREATE A ONE BIT CHANNEL MASK 
BY SHIFTING INTO POSITION 
IOCL IS A 7751XXXX 


ENTER THE ABNORMAL EXIT ADDRESS 


INITIALIZE THE I/O COMMAND 
SAVE INDEX 2 

INITIALIZE THE ERROR MESSAGE 


SEARCH.FOR SUBSTITUTIONS 

MAKE THE SUBSTITUTION 

FORGET ZERO TO ZERO SUBSTITUTIONS 


SKIP IF DONE 


UNIT NUMBER TO A 

IT SHOULD BE THE UNIT NUMBER 
ALTHQ IT MAY MOT BE 


LOAD THE BLOCK NUMBER WE WANTED 


WHERE6LK+7,XI 

*-Z-3,Xl 

WHEREHES 

09/147,C15/WHEREMES+WHERMESL 
OUT 


X2TEMF ,2 
IR 


G 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


*-z 

IMPURE 
108 , SELECT 
ERROR 


SELECT LOAD ADDRESS 


O 
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0 0170 

0 0171 

146 0 00 0 0 
76001465 


2 02 

203 


ENA , 

OUTW 

0 

IO,ADDRESS,ADDRESS+1 

0 017 2 

00001464 






0 0173 

01000230 


2 0 4 


UJP 

ERROR 

0 0174 

00700205 


205 


RTJ 

W AIT 

0 0175 

01000165 


206 


UJP 

LOAD 




207 





00176 


203 

ID X 

EQU 

*-Z 

0 0176 

01000000 


2 0 9 


UJP 

IMPURE 

0 017 7 

1460UQU0 


210 


ENA 

0 


010 0 0 


211 

IOP 

EQU ,C 

-z 


0 0200 


212 

L W A 

EQU 

+-Z 


0 0201 


213 

FW A 

EQU 

LWA + i 

0 0 2 0 0 

74000J00 


214 


I NPW 

IO,IMPURE,IMPURE 

0 0 2 01 

00000000 






0 0 2 0 2 

01000230 


215 


UJP 

RTJ 

ERROR 

00203 

00700205 


216 


WAIT 

0 0:204 

01000176 


217 


UJP 

IOX 




218 





0 0 2 0 5 


219 

WAIT 

EQU 

- z 

0 0205 

01000000 


220 


UJP 

IMPURE 

0 02 06 

77200001 


221 


EXS 

0 Q flIE » SENSE 

00207 

77200024 


222 


EXS 

0024B.SENSE 

0 0210 

01000230 


22 3 


UJP 

ERROR 

0 0211 

77200026 


224 


EXS 

00266,SENSE 

0 0212 

010 0 02 06 


225 


UJP 

*-Z-4 

00213 

77200001 


22 6 


EXS 

00018,SENSE 

0 0214 

77300037 


227 


INS 

00378,SENSE 

0 0 215 

01000230 


22 8 


UJP 

ERROR 

0 0 216 

77200200 


229 


EXS 

02008,SENSE 

00217 

77200024 


230 


EXS 

00248,SENSE 

0 022 0 

01000230 


231 


UJP 

ERROR 

0 0221 

01000205 


.232 


UJP ' 

WAIT 




23 3 





00222 


234 

CONNECTX 

EQU. 

+-Z 

0 0222 

00700165 


235 


RTJ 

LOAD 


U 0223 


236 

CONNECT 

EQU 

*_z 

0 0223 

01000000 


23 7 


UJP 

IMPURE 

0 0 2 24 

14200024 


. 238 


ENI 

20,X2 


00225 


239 

GNGOOE 

EQU 

*-Z 

0 0225 

77000000 


240 


VFO 

A9/C0N,A15/IMPURE 

0 0 226 

02600225 


241 


I JO 

*-Z-l,X2 

0 02 27 

02600222 


242 


IJO 

CONNECTX,X2 


0 0 2 3 0 


243 

ERROR 

EQU 

*-Z 

0 0230 

146 GOG 0 0 


24 4 


ENA 

0 

0 0231 

77200000 


2 45 


COPY 

SENSE 

00232 

44000276 


246 


SWA 

ESTATUS 

0 02 33 

20001235 


247 


LDA 

ERRORS 

0 0234 

77200001 


240 ■ 


EXS 

0001B,SENSE 

0 0235 

77300030 


249 


INS 

0030B,SENSE 

0 0236 

05400001 


25 0 


A3G,S 

1 . 

00237 

15600001 


251 


IN A 

1 

0 0240 

40001235 


252 


STA 

ERRORS 

0 0241 

21000016 


25 3 


LUQ 

PERSIST 

0 0242 

03600245 


25 4 


AQJ,GE 

*-.Z+3 

0 0 24 3 

05601747 


255 


ASG 

999 

0 0 244 

01100000 


25 6 


UJP 

0,1 

0 02A5 

U07U025G 


25 7 


RTJ 

COMPLAIN 

0 0245 

01000017 


25 8 

■O Q 


UJP 

IR 


0 0247 


C 5 

260 

■X 2 TEMP 

EQU 

*-Z 

0 0247 

14200000 


261 


ENI 

IMPURE,X2 


0 0 250 


262 

COMPLAIN 

EQU 

*-Z 

0 0 250 

01000000 


263 


UJP 

IMPURE 

0 0 251 

20001235 


264 


LGA 

ERRORS 

0 0 252 

03000247 


26 5 


AZJ,EQ 

X2TEMP 

0 0253 

77600400 


265+001 


PAUS 

04 0 0 8+SENSE 

0 0 254 

01000253 


267 


UJP 

- 1 

0 0255 

1410 0002 


268 


ENI 

2,1 

0 0 256 

13077747 


269 


SHAQ 

-24 

0 0 25 7 

51000026 


27 0 


OVA 

TEN 

0 0260 

434015U3 

00320 3 

271 


SQGH 

DKMSGEC , 1 

0 0261 

02500256 


272 


IJD 

*-Z-3,l 

0 026 2 

20001464 


2 7 3 


LDA 

ADDRESS 

0 0263 

14177770 


274 


EMI 

-7,1 

0 0 264 

14700000 


27 5 


ENG 

0 

0 0.265 

13000003 


276 


SHAQ 

3 

0 0266 

43401534 

00327 0 

27 7 


SQCH 

DKMSGADR+10 ,1 

0 0 267 

02100264 


27 8 


IJI 

*■- Z— 3,1 


FOR RELOCATION 


WAIT FOR THE DISK DRIVE 
RETURN 


FOR RELOCATION 


MAY BE CHANGED TO OUTW 

BLOCK CONTROL REJECT 
WAIT FOR COMPLETION 
RETURN 


SENSE FOR ERRORS 

SENSE FOR BUSY OR ERRORS 
WAIT FOR COMPLETION 
SKIP IF NOT READY 
SENSE FOR ERRORS 

SENSE FOR POSITIONER READY 
SENSE FOR ERRORS 

RETURN 


CONNECT 


SKIP IF NOT READY 
SENSE FOR REJECTS 
ONLY REMEMBER 1 REJECT 


LOAD THE ERROR LIMIT 


RETURN TO THE ABNORMAL ADDRESS 


RESTORE INDEX 2 


SENSE FOR TYPEWRITER BUSY 
WAIT FOR IT 


LOAD THE DISK ADDRESS 
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0 0 2 70 

0 U 2 71 

mnm 



27 9 

28 0 


LDA 

EMI 

B L, K T E M P 

LOAD THE FILE BLOCK NUMBER 

002/2 

14 700U 0 0 



281 


EMU 

0 


0 0 273 

130000U3 



282 


SHAG 

3 

STORE THE BLOCK NUMBER IN THE 

0 0 274 

43401571 

003 36 

1 

283 


SUCH 

OKMBLK+7 7 XI 

0 0 275 

0210U272 



284 


IJ 1 

~ Z - 3 j X 1 

MESSAGE 


0 02 76 



285 

ESTATES 

EQU 

*-Z 


0 0 276 

14600000 



2 8 b 


EM A 

IMPURE 


0 0277 

12000014 



287 


SHA 

12 


0 030 0 

141/7774 



288 


EMI 

-3,1 


0 0301 

14700000 



289 


E.NQ 

a 


0 03 02 

13000003 



29 0 


SHAG 

3 


0 0 303 

43 401543 

00330 

3 

291 


SQCH 

dkmsgexs+6,1 


0 0304 

02100301 



29 2 


IJI 

-- 2 - 3,1 


0 0 3 0 5 

20000225 



29 3 


LDA 

CNCOOE 

LOAD THE CONNECT CODE 

0 0 3 0 6 

17600007 



294 


ANA 

7 


0 0307 

42001552 

00332 

2 

29 5 


SAGH 

DKMSGDRV+6 


0 0 310 

11001502 

00320 

2 

296 


ECHA 

DKMSG 


0 0 311 

1h701572 



29 7 


VFO 

09/147,C15/DKM3G+0KLNTH THIS IS AN ENQ 

0 0312 

00 700361 



29 8 


RTJ 

OUT 


0 0313 

01000247 



299 


UJP 

X2TEMP 



0146 0 



299+001 

PKMS 

EQU ,C 

*-Z 


00314 

77472123 



299+002 


tex r,c 

/aPACK IDENTS/ 



0 0317 



299+003 

I DENT 

EQU 

*-Z 


0 0 317 

60606060 



299+004 


BCD ,C 

4, 


0 0 320 

77/70000 



299+005 


TEXT,C 

/aa/ 



015 0 2 



299+006 

PKMSL 

EQU,G 

-~Z 



015 0 2 



30 0 

0KH3G 

EQU,C 

*-z 


0 0 320 

7777 77 0 0 



301 


BCD ,C 

1 1 A 



0150 3 



302 

0KM3GEC 

EQU ,C 

*-Z 


0 0 320 

77777767 



3 8 3 


BCD, G 

15,XXX DISK ERRORS 



01522 



30 4 

OKMSGADR 

EQU ,C 

*-Z 


0 0 324 

51626021 



3 0 5 


BCD ,C 

11, A=XXXXXXXX 



015 3 5 



3 0 6 

OKNSGEXS 

EQU »C 

L 


0 0 327 

67 SO 6213 



307 


BCD»C 

7, S=XXXX 



Q15 4 4 



30 3 

0KMS60RV 

EQU ,C 

+ -Z 


0 0331 

60644531 



309 


8CD,C 

7, UNIT X 


0 0 332 

63606760 



310 


BCD, C 

7, BLOCK 



01562 



311 

0KM3LK 

EQU »C 

*-Z 


0 0 334 

42606767 



312 


BCD »G 

8,XXXXXXXX 



0 00 7 0 



313 

OKLMTH 

E Q U 7 C 

--Z-DKMSG 



0157 2 



814 

NAHEREQ 

EQU ,C 

*-Z 


00 336 

67677745 



315 ' 


BCD » C 

6, a NAME a 



01600 



316 

WHEREMES 

EQU »C 

- - z 


0 0340 

77663025 



oi? 


BCD 7 C 

30 ,a WHERE IS MASS 

STORAGE DEVICE 


0163 6 



318 

HHEREUNT 

E Q U 7 C 

*-Z 


0 0 347 

2560676 7 



319 


aco,c 

16,XX BLOCK NUMBER 



0165b. 



32 0 

WHERE BLK 

EQU j G 

*-Z 


0 0 353 

51606767 



321 


BCD ,C 

9 , XXXXXXXXa 



0 0 067 



32 2 

WHERHESL 

EQU ,C 

--Z-KHEREMES 



0166 7 



323 

8 AOMESS 

EQU 7 C 

*-Z 


0 0 355 

67677777 



324 


BCD 7 C 

12 , a BAD L ABELaaa 



0 0014 



325 

BAOMESSL 

EQU,C 

- -Z-BAOMESS 


00360 




32 6 


BSS 

' 0 

PERFORM BLACK MAGIC ON THE PC 


00361 



32 7 

OUT 

EQU 

-~Z 


0 0 361 

01000000 



328 


UJP 

IMPURE 


00362 

7760 0400 



328+001 


PAUS 

04Q0S+SENSE 

SENSE FOR TYPEWRITER BUSY 

0 0 363 

01000362 



33 0 


UJP 

--Z-1 

WAIT FOR IT 

0 0 364 

53 42 0 0 2 3 



331 


T A H 

238 

SET THE FIRST CHARACTER ADDRESS 

0 0365 

53410033 



33 2 


TQM 

33B 

SET THE LAST CHARACTER ADDRESS 

0 0 366 

77760000 



333 


CTO 



0 0367 

01000361 



33 4 


UJP 

OUT 
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0 0370 

53020022 

0 0 371 

53010022 

0 0 3/2 

0 3 4 0 G 3 71 

0 0 373 

02500432 
0 0 3 /4 

0 0374 

14600000 
0 0 3 75 

0 0 375 

2100031/ 
0 0 3/6 

0 03/6 

01000000 

0 0 3 7 7 

44000413 

0 0400 

22002055 

0 0 4 01 

77540000 

0 0 402 

53500000 

Q 0 4 0 3 

146 0 0 0 01 

0 0404 

12100000 

0 0405 

16610000 

0 0 4 0 6 

44000410 

0 04 0 7 

14600004 
0 0410 

0 0 410 

77510000 

0 0411 

44 0 0 0-45 0 

0 0 412 

14100764 
0 0 413 
0 2 0 5 5 

0 0413 

77000000 

0 0414 

02500413 

0 0415 

0510 U O 01 

0 0416 

0100 0374 

1)0 417 

14600000 

0 0420 

40001464 

0 0421 

40001235 

0 0 422 

14100450 

0 0 423 

00700165 

0 0 424 

77100040 

0 0 425 

01000450 

0 0 426 

7 4002574 

0 0427 

00002474 

0 0430 

01000450 

0 04 31 

14101750 

00432 

00432 

77200002 

0 0433 

01000370 

0 Q 4 3 4 

77300001 

0 0 435 

01000450 

0 0 436 

77200004 

0 0 437 

01000450 

0 0 44 0 

1410UO77 

0 0441 

1447 7777 

0 0442 

36102474 

0 04 4 3 

02500442 

00444 

03100450 

0 0445 

03300450 

00446 

20002474 

0 0447 

01000375 

00450 

0 045 0 

14600000 

0 0451 

1547777b 

0 0 452 

03200410 

0 0453 

01000374 
0 04 54 

0 0 454 

00.301125 

00455 

0 0455 

25000476 

0 0 456 

45000001 

0 0 457 

11001572 

0 046 0 

14701600 

00461 

1)0700 3 61 

00462 

77600400 

0 0463 

01000462 

0 0 464 

11000004 

0 0465 

53420023 

0 0466 

11000014 

0 0 467 

53420033 

00470 

77750000 

00471 

77 6 0 04 0 0 

0 047 2 

010 0 0 4 7.1 

0 0 473 

77602000 
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j ,j a 

339 
34 0 

341 

342 
3 4 3 

344 

345 

346 

34 7 

00413 1 343 

349 

35 0 

. 351 

35 2 
35 3 

354 

355 
35 6 
357 

35 8 
359 

36 0 
361 
36 2 
36 3 
36 4 
3 6 5 
366 

36 7 

368 

369 

370 

371 

37 2 
3 7 3 

374 
37 5 

376 

377 

37 8 
379 

38 0 

381 

382 
38 3 

384 

385 

38 6 

387 

388 

3 89 

390 

391 

392 

39 3 

394 

395 

396 

39 7 

398 

399 

40 0 

G 0336 2 401 

402 

403 
403+001 

4 0 5 

00001 0 406 

40 7 

00003 0 403 

40 9 
410 

410+001 

412 

. 412+001 


7 BOOT 

RDL.3L.e3Y EQU 
I MA 
THU 

AQJ,EQ 
X J 0 

RDLABELX EQU 
E N A 

ROLABELQ EQU 
LDQ. 

ROLABEL EQU 
UJP 
SWA 
LAGH 
ACI 

r a i 

EH A 
SHA 
XQA 
SWA 
ENA 

RDLQLGVR EQU 
IOCL 
SWA 
ENI 

RQLBLCON EQU 
RDLBLCHN EQU,C 
VFO 
IJQ 
I SB 
UJP 
ENA 
STA 
STA 
ENI 

.RTJ 

SEL 
UJP 
I HP W ■ 

UJP 
ENI 

R0L8LWT EQU 
EXS 
UJP 
INS 
UJP 
EXS 
UJP 
£N I 
ENA,S 
SC A 
IJD 

AZJ,NE 
A Z J » L T 
LDA 
UJP 

RDLBLAGN EQU 
ENA 
INA ,3 
A Z J»G E 
UJP 

SYSLIBX EQU 
SJ3 

ACCEPT EQU 
LDAQ 
ST AQ 
ECHA 
VFO 
R T J 
PAUS 
UJP 
ECHA 
TAM 
ECHA 
TAM 
CTI 
PAUS 
UJP 
PAUS 


WAIT FOR 1 MILLISECOND 


22B 
4-Z-l 
RDLBLWT j 1 

z 

0 

- - z 
I DENT 
+ -Z 

IMPURE 
RDLBLCQN 
RDLBLCHN 

1 
1 

0,1 

1Q000B 
ROLBLOVR 
4 

*-Z 

IMPURE 
RDLBLAGN 

500.1 
*-Z 
*-Z + i 

A9/C0N,A15/IMPURE 
*-Z~l,l 

RDLABELX 
0 

ADDRESS 
ERRORS 

RDLBLAGN,1 ENTER THE ABNORMAL ADDRESS 

LOAD LOAD THE ADDRESS REGISTER 

40B j SELECT READ 

RDLBLAGN 

10,BUFFER,BUFFER+LA 8 EL 

RDLBLAGN 

1000.1 
+ -Z 

00028,SENSE DISK DRIVE BUSY 

RDLBLBSY 

00018,SENSE CHANNEL PARITY ERROR 

RDLBLAGN 

00048,SENSE CHECK FOR ERRORS 

RDLBLAGN 
LABEL-1,1 
777778 
BUFFER,XI 
-z- 1,1 
RDLBLAGN 
RDLBLAGN 

BUFFER+MSLIDENT LOAD THE IDENTIFIER 

RDLABELQ 

*-z 

IMPURE 

-1 

ROLBLOVR 

RDLABELX 

*-Z 

SYSLIB01 

*-Z IF JUMP KEY SIX IS SET, READ IN 

BLANKS THE NAME OF THE FILE FROM THE 

NAME CONSOLE TYPEWRITER 

NAMEREQ 

09/147,C15/NAHEREQ+6 ENQ 
OUT 

0400B+SENSE SENSE FOR TYPEWRITER BUSY 

"—Z-1 WAIT FOR IT TO FINISH 

NAMEC 
238 

NAMEC+8 

33B 

ASK pOR A NAME 

D4G0B+SENSE SENSE FOR TYPEWRITER BUSY 

*-Z-i WAIT FOR THE OPERATOR 

20 0 OB + SENSE SKIP IF REPEAT 
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0 0 4 7 4 

01000675 

414 

U 0 4/5 

01000455 

415 


0 04 76 

416 

0 0476 

60606060 

417 


0 0500 

413 

0 0500 

14102243 

4.19 

0 0501 

14700000 

420 

0 0502 

41101230 

02500502 

42 i 

U 0 5 0 3 

422 

0 05 0 4 

44000545 

423 
42 4 

0 0505 

GO 70 0376 

425 

0 0506 

03000644 

426 

0 0 50 7 

40 0 0 0317 ■ 

42 7 
42 3 

a 0510 

14200157 

429 

0 0511 

i4 6 0 0 7 74 

430 

0 0512 

77644020 

431 

0 0513 

0260 0512 

432 

433 

0 0514 

14200017 

434 

0 0515 

1460 00 74 

4 35 

0 0516 

77644000 

436 

0 0517 

15477773 

43 7 

0 0520 

02600516 

43 3 
43 9 

0 0 521 

20 0 0 2503 

44 0 

0 0522 

17600700 

441 

0 0523 

12077771 

442 

0 0524 

53600000 

443 

00525 

20200027 

44 4 

0 0 526 

30200027 

445 

0 0527 

40001464 

446 

0 0530 

14600000 

447 

0 05 31 

40001235 

448 

0 05 32 

1420 001.1 

44 9 

0 0 5 3 3 

14100536 . 

45 0 

00534 

00700165 

451 

00535 

77100040 

45 2 


0 05 36 

45 3 

0 0536 

02600533 

454 

0 0 537 

05200001 

45 5 

0 054 0 

00000540 

456 

0 0541 

74001230 

45 7 

0 0 542 

QQQU1G0Q 


0 0543 

00000541 

45 8 

0 0544 

00700205 

459 
46 0 
461 


0 0545 

462 

0 0545 

14600000 

463 

0 0546 

UG 700563 

464 
4 6.5 



466 


0 0547 

467 

0 0 547 

14600000 

46 8 

0 0550 

14104000 

469 

0 05 51 

0070 0035 

470 

00552 

14100776 

471 

0 055 3 

200 0 00 04 

47 2 

0 0554 

14577777 

473 

0 0555 

06304000 

47 4 

0 0556 

01000650 

475 

00557 

20104002 

476 

0 05 6 0 

00700563 

477 

0 0561 

01000553 

478 
4 79 


00562 

480 

0 0 56 2 

14100000 

481 


0 0563 

48 2 

0 0 563 

01 0 0 0 0 0 0 

48 3 

0 0 564 

47100562 

43 4 

0 0 5 65 

17677000 

485 

0 U 566 

15600007 

48 6 

0 0567 

14300017 

43 7 


0 0570 

488 

0 05 7 0 

15600001 

489 

0 0571 

44000602 

49 0 

0 0 5 7 2 

00700376 

491 


BOOT 



UJP 

CONVERT 


U j F 

ACCEPT 

BLANKS 

EQU 

*-Z 


BCD 

2 , 

I NIT 

EQU 

*-z 


ENT 

SCRATCHL-i, XI 


ENQ 

1 . 0 


ST Q 

SCRATCH,XI 


I JO 

*-Z-l,X± 


SWA 

DIS K 0 0 0 


RTJ 

RDLABEL 


AZJ,EQ. 

BADEABEL 


STA 

IQ ENT 


ENI 

1776-208,X2 


ENA 

0 7748 


APF 

PFW+20B,X2 


I JO 

*—Z—l r X2 


E NI 

170,72 


ENA 

0 0 748 


APF 

P F W »X 2 


INA,S 

-4 


I JO 

*-Z-2,X2 


L O A 

SUFFER+MSLF BPC 


ANA 

007008 


SHA 

-6 


TAX 

X 2 


LDfi 

SECPF8,X2 


ADA 

SECPFB,X2 


STA 

ADDRESS 


ENA 

0 


STA 

ERRORS 


ENI 

9 , X2 


ENI 

GLERCH,XI 


RTJ 

LOAD 


SEL 

00408,SELECT 

GLERCH 

EQU 

*-Z 


IJQ 

*-Z-3,X2 


ISG 

1, X2 


HLT 

*-Z 


INPW 

IO,1G00B,SCRATCH 


HLT 

*-Z-2 


RTJ 

. WAIT 

DISK 0 00 

EQU 

7 


ENA 

IMPURE 


RTJ 

OKSCANX 

3L0CKLQC 

EQU 

■ *~2 .6 ' . 


ENA 

IMPURE 


ENI 

8 LCCKBUF,X 1 


RTJ 

READ 


ENI 

WPF8-2,XI 


LOA 

DISK 


ENQ, S 

7 7 7 7 7 B 


MEQ 

BLGCKBUF,3 


UJP 

MXKK 


LDA 

8LCCKBUF+2,XI 


RTJ 

OKSCANX 


UJP 

* - Z - 6 

OKSCANXi 

EQU 

*-Z " 


ENI 

IMPURE,XI 

OKSCANX 

EQU 

*-Z 


UJP 

IMPURE 


ST I 

OKSCANXI,XI 


ANA 

77 0 0 0B 


INA 

7B 


ENI 

OKNUM-1,3 

DKSCAN 

EQU . 

*-Z 


IMA 

1 


SWA 

CONSAVE 


RTJ 

RDLABEL 


GIVE THE OPERATOR A SECOND CHANCE 


ZERO OUT ALL THE TABLES 


SAVE THE CONNECT CODE FOR THE 

DISK THAT THIS PROGRAM CAME FROM 

READ IN .'ITS LABEL 

JUMP IF NOT A LABEL 

AND STORE THE IDENTIFIER FROM IT 

INITIALIZE STATES 1-7 TO 
NON-EXISTANT MEMORY 


INITIALIZE STATE ZERO TO POINT 
PHYSICIAL STATE ZERO 


LOAD DEVICE CODE 


DEVICE CODE TO X2 

COMPUTE ADDRESS OF THIRD 8LGCK ON 
THE DEVICE 


TRY A FEW TIMES 
ENTER ABNORMAL RETURN ADDRESS 
SEEK THE DEVICE 
SELECT READ 

TRY AGAIN 
SKIP IF OK 

READ IN THE SECOND BLOCK 


WAIT FOR COMPLETION 


ENTER CONNECT OF AUTOLOAD DISK 
HOW MANY UNITS ARE OUT THERE 


ENTER THE ADDRESS OF BLOCKS 

READ THE BLOCK DIRECTORY 

LOOK FOR OTHER DISK CONTROLLERS 


JUMP IF ALL DONE 
L0AO THE CONNECT CGOE 

KEEP LOOKING 


RESTORE XI 
SAVE XI 

SAVE THE CHANNEL AND EQUIPMENT 


TRY THE NEXT CONNECT CODE 
SAVE THE CONNECT CODE 
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G Q 67 3 

U 3 5 0 0 6 4 0 



492 


AQJ ,HE 

LJKLCQP 


0 0 5 7 4 

2 U 0 0114 75 



49 3 


LUA 

BUFFER+MSLDN 

LOAD THE DEVICE NUMBER 

U.US7 5 

05400100 



494 


A S G 5 S 

DEVLIST 

IS THE NUMBER WITHIN RANGE 

00576 

05400000 



49 5 


ASG>b 

0 


0 057 7 

01000640 



49 b 


UJP 

0 KL GOP 

IGNORE THE PACK 

0 0600 

53600000 



49 7 


T AI 

X 2 

DEVICE NUMBER TO X2 

ij 0 6 01 

53 64 0 0 0 0 



49 8 


IAI 

X 2 

TWO TIMES DEVICE NUMBER 


0 0 6 0-2 



49 9 

CONSAVE 

EQU 

*-Z 


0 06 0 2 

14600000 



500 


ENA 

IMPURE 

ENTER THE CONNECT CODE 

! j U b U v3 

35 GO 0 0 05 



501 


SS A 

BIT23 

SET THE DEFINED BIT 

U 0 6 0 4 

3500250 3 



5 02 


SS A 

BUF FER+MSLFBPC 

SET IN THE CYLINDER CODE 

0 06 05 

21201236 



503 


LOQ 

OEVLUN,X2 

HAS THE DEVICE BEEN PREVIOUSLY 

0 0 6 06 

04500000 



504 


QSE»S 

0 

DEFINED 

0 0607 

03500644 



50 5 


A Q J , N E 

BAOLABEL 


00610 

40201236 



506 


ST A 

OEVLUN,X2 

SAVE THE CONNECT CODE 

0 0 611 

21002477 



50 7 


LOQ 

3UFFER+MSLHF8N 

LOAD THE HIGH FILE 3LOCK NUMBER 

00612 

15700001 



50 8 


INQ 

1 


0 0 613 

20201241 



509 


LOA 

OEV8LK+2,X2 

LOAD THE HIGH FILE BLOCK NUMBER 

0 0614 

41201241 



510 


STQ 

DEV8LK+2,X2 

IF IT IS DEFINED 

0 06 15 

0 4 4 0 0 0 G 0 



511 


ASE,S 

0 


0 0 616 

0 3500 6 44 



512 


AQJ,N£ 

BAOLABEL 


0 0617 

20002476 



513 


LDrt 

BUF FER + HSLLF 8 N 

LOAD THE LOW FILE BLOCK NUMBER 

0 0 620 

21201237 



514 


LOQ 

OEVBLK,X2 

IS THE VALUE KNOWN 

0 U 6 21 

40201237 



515 


ST A 

D£V BLK,X2 

SAVE THE LOW BLOCK NUMBER 

00622 

04500000 



516 


QSE , 3 

0 


00623 

0 3 5 0 06 44 



517 


AQJ,HE 

BAOLABEL 


0 0624 

0 2 6 0 0 64 0 



518 


130 

DKL GOP,X2 

JUMP IF NOT DEVICE ZERO 

00625 

30002502 



519 


ADA 

BUFF ER+MSL 8 LK 

COMPUTE THE ADDRESS OF BLOCKS 

0 0626 

44000547 



520 


SWA 

BLGCKLOC 

AND SAVE IT 

0 0 627 

25002504 



521 


LDAQ 

8UFFER+MSLFDL0C 

LOAD THE FILE DIRECTORY 

0 0 630 

45001231 



522 


STAG 

FILEQIR 

INFORMATION AND SAVE IT 

0 06 31 

25002506 



523 


LOAQ 

BUFFER+MSLFOSEL 

LOAD THE FILE DIRECTORY SCATTER 

0 0 6 3 2 

■ 45000765 



5 24 


STftQ 

FOSELECT 

FUNCTION INSTRUCTIONS 

0 0633 

200G2510 



525 


LOA 

BUFFER+HSLFQHSH 

LOAD THE FILE DIRECTORY SCATTER 

0 0634 

40001233 



52 6 


STA 

HASH 

CONSTANT AND SAVE IT 

0 0 6 35 

20002500 



526+001 


LOA 

BUF FER + MSLPF 8 N 

GET NUMB OF PROTECTED BLOCKS 

0 0 635 

30002476 



526+002 


ADA 

BUFFER+HSLLFBN 

ADD LOW FB NUMBER 

0 0537 

40001234 



526+003 


STA 

HPFB 

SAVE. 


0 0640 



5 27 

DKLQQP 

EQU 

*-Z 


0 0 640 

20000602 



528 


LOA 

CONSAVE 


0 0 641 

02700570 



529 


I JO 

OKSC AN,3 

SCAN ALL THE DISKS 

0 0 642 

77510377 



53 0 


IOGL 

3 7 7 B 

TURN OFF ANY REJECT LITES 

0 0 6 4 3 

01000562 



531 


UJP 

OKSOANX1 






532 









5 33 






00644 



534 

8 AOLA BEL 

EQU 

TT 2 ’ 


0 0644 

11001667 

0 0355 

3 

.535. 


ECHA 

BADNESS 


0 0645 

i 4 7 U1 7 0 3 



53 to 


VFO 

09/147,C15/BA0MESS+8ADMESSL 

0 0 646 

00700361 



53 7 


RT J 

OUT 


0 0647 

00000647 



5 33 


HLT 

*-Z 






539 

540 






0 065 0 



541 

MXKK ... 

EQU 

*-z 


00650 

14300000 



542 


ENI 

0 ,X3 



0 0651 



543 

MXK 

EQU 

+-Z 


0 0651 

14200000 



544 


ENI 

0 , X2 

START AT THE FRONT OF THE BLOCK 


00652 



5 4 5 

MXL 

EQU 

*-Z 

PROCESS THE SYMBOL LIST 

0 0652 

25204000 



546 


LOAQ 

BLCCKBUF,X2 


0 0653 

33301216 



54 7 


SBAQ 

BLKLIST,X3 

COMPARE SYMBOLS 

0 0 654 

13400000 



548 


SCAQ 



00655 

03000662 



54 9 


A Z J , E Q 

HXZ 

JUMP IF SYMBOL FOUND 

0 0 656 

15200003 



55 0 


INI 

3 , X 2 


0 0 657 

05200776 



551 


ISG 

WPF8-2,X2 

SKIP IF SYMBOL IS UNDEFINED 

0 066 0 

01000652 



552 


UJP 

MXL 

OTHERWISE, LOOP BACK 

0 0661 

00000661 



553 


HLT 

*-Z 

SYMBOL NOT IN SYMBOL BLOCK 


0 0 662 



554 

HXZ 

eou 

-”-Z 


0 0 66 2 

20204U 02 



55b 


LOA 

BLCCK8UF+2,X2 

LOAD THE VALUE OF THE SYMBOL 

0 0663 

-*030 1216 



556 


STA 

BLKLIST,X3 

SAVE THE VALUE FOR REFERENCE 

0 0664 

15300002 



55 7 


INI 

2 , X 3 

PROCESS THE NEXT SYMBOL 

0 0665 

05300012 



558 


ISG 

BLKLNTH»X3 

SKIP IF DONE 

0 0666 

01006651 



559 

£2 c s n 


UJP 

MXK 


0 06 6 7 

14101474 



O O u 

561 


ENI 

MXSLIST,XI 

VALUE OF MXS3L0CK IS NOW IN A 

0 067 0 

00700035 



56 2 

fz fs 7 


RT J 

READ 

READ IN THE SUBSTITUTION LIST 

0 0671 

11001460 

0 0314 

0 

J O O 

.563 + 00.1 


ECHA 

PKN3 


00672 

14701502 



563+002 


VFO 

Q9/147,C15/PKMSL 

ENG 

0 0 673 

00700361 



553+003 


RT J 

OUT 


0 0674 

00 60 0455 



564 


SJ 6 

ACCEPT 

JUMP IF OPERATOR CONTROL 
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0 0 675 

5 6 5 

CONVERT 

EGU 

*-Z _ 


LI U67 6 

25000001 

56 6 


LUAQ 

NAME 


0 0 6 76 

33 0 QUO 0 6 

56 7 


SBAQ 

SYSLIB 


J U6 77 

13400000 

566 


SC AQ 



0 0700 

03U00454 

56 9 


A Z J , E Q 

SYSLIBX 

JUMP IF SYSLIB OPERATION 

0 0701 

14701000 

565+001 


ENQ 

WPFB 


0 0 7 0 2 

41000015 

569+002 


STQ 

WC 


0 0 703 

20001222 

56 9 + 003 


LOA 

COMMANDS 

GET ADDRESS OF COMMANDS BLOCK 

0 0 7 0 4 

14102474 

5 6 9 *• 0 0 4 


EMI 

BUFFER , Xl 


0U705 

0 0 7 0 0 U3 5 

569+005 


RTJ 

READ 

READ IN SPECIAL COMMANDS 

0 0 706 

14101000 

569+006 


EMI 

WPFB,XI 


0 070 7 

47101043 

569+007 


STI 

TRAFLAGjXl 

SET NOT SPECIAL FLAG 


0 0710 

569+008 

SRCHLP 

EQU 

Z 


0 0 710 

14577777 

569+009 


E N Q i S 

77777B 


0 0 711 

20000001 

569+010 


LOA 

NAME 


0 0 712 

06502474 

569+011 


M £ Q 

BUFFER,5 

LOOK FOR NAME IN LIST 

0 0713 

01000761 

569+012 


UJP 

SEARCHFO 

NOT FOUND, TRY OVERLAY 

0 0 714 

21000002 

569+013 


LOQ 

NAME+1 

GET 2ND HALF OF NAME 

0 0 715 

20102475 . 

569+014 


LOA 

BUFFER + .1, X.1 

TO COMPARE WITH COMMAND 

0 0 7.16 

0350071J 

569+015 


AQJ,NE 

SRCHLP 

JUMP IF NOT THE SAME 

0 0717 

20102500 

569+Q16 


LOA 

BUF F ER+4,X1 

GET TRANSFER ADDRESS 

0 0720 

44001103 

569+017 


SWA 

TRA 

AND SAVE IT 

0 0 721 

25102476 

569+018 


LDAQ 

BU F FER + 2,XI 

GET CONTROL WORDS 

0 0722 

45000001 

5o9+016 


STAG 

NAME 

(SAVE THEM) 

0 0 7 2 3 

47001043 

569+020 


STI 

TRAFLAG,0 

SET SPECIAL COMMAND FLAG 

0 0724 

U 3 3 0 0 7 6 i 

569+021 


A Z J •» L r 

SEARCHFD 

JUMP IF OVERLAY NAME 

00725 

21001234 

569+022 


LOQ 

HPF.8 

GET LAST BLOCK ON LIBRARY*! 

0 0726 

03600761 

569+023 


AQJ,GE 

SEARCHFO 

JUMP IF OVERLAY NAME 

0 0 727 

20000002 

569+024 


LOA 

NAME+1 

GET BIT MAP OF PAGES 

0 0730 

030 0 10 33 

56 9+025 


A Z J , E Q. 

ZAP 

JUMP IF 8AO BIT MAP 



. '569+026 






0 0 731 

569+027 

PAGELP 

EQU 

*-Z 


0 0 7 31 

14600000 

5 6 9+ 0 2 6 


ENA 

0 


0 0 732 

21000002 

569+029 


LOQ 

NAHE+i 

GET CURRENT SIT MAP 

0 0733 

135 0 0 Q 56 

569+030 


SC AQ 

46, XI 

COUNT CURRENT PAGE NUMBER 

0 0 734 

03001074 

569+031 


AZJ,£G 

SYSFLAGX 

CALL ROUTINE IF DONE 

0 0 735 

13000001 

569+032 


SHAQ ■ 

1 

ARRANGE TO 

00736 

3600OU05 

b. 6 9+033 


SCA 

BIT 23 

TURN OFF THE BIT 

0 0 737 

13100001 

569+034 


SHAQ 

It XI : v 

RESTORE Q {ONE BIT LESS3 

0 0740 

16177777 

569+035 


XOI 

77 7778,Xi 

NEGATE BIT NUMBER 

00741 

05177761 

569+036 


ISG. 

-14,XI 

SKIP IF OK 

00742 

00000742 

569+037 


HLT 

*-Z 


00743 

41.00 0 0 02 

5 6 9+ 0 3 8 


STQ 

NAHE+1 

SAVE NEXT SIT MAP 

0 0 744 

14600017 

569+039 


ENA 

15 . 

NUMBER OF PAGES/BANK-1 

00745 

53140000 

569+040 


AIA 

■ XI 

COMPUTE PAGE NO, TO READ 

0U746 

12000013 

569+041 


SHA 

11 

CONVERT TO CORE ADDRESS 

0 0 747 

53500000 

569+042 


TAI 

XI 


0 0 750 

14704000 

569+043 


ENQ 

4*WPFB 

NUMBER OF WGROS/PAGE 

0 0 751 

41000015 

5 69+- 0 44 


STQ 

WC 

WORD COUNT FOR. READ 

0 0 752 

20000001 

56 9+0 45 


LOA 

NAME 

GET PAGE ADDRESS 

00753 

00700035 

569+046 


RTJ 

READ 

READ PAGE 

0 0 754 

14701000 

569+047 


ENQ 

WPFB 


0 0 755 

4100.0015 

559+048 


STQ 

WC 


00756 

14600004 

569+049 


ENA 

4 

NUMBER OF FILE BLOCKS/PAGE 

0 0 757 

34000001 

563+050 


RAD 

NAME 

INCREMENT PAGE ADDRESS 

0 0 760 

01000731 

569+ 0 51 


UJP 

PA6ELP 

LOOP TILL DONE 



569+052 

* 





00761 

56 9+ 0 5 3 

SEARCHED 

EQU 

*-Z 



0 0761 

570 

SEARCH 

EQU 

*-Z 


0 0 761 

25000001 

571 


LDAQ 

NAME 




57 2 




-r ' ■ '. • . . 



673 

T 

THIS IS 

THE SCATTER FUNCTION 

FOR THE FILE DIRECTORY 



574 

* .. 




00 76 2 

53040000 

575 


AQA 



0 0 7 6 3 

50001233 

576 


HUA 

HASH 


0 0 764 

530 40 0 0.0 

577 


AQA 




00765 

578 

F D 3 E L E C T 

EQU 

*-Z 


0 0 765 

00000765 

579 


VFD 

A24/^-Z+IMPURE,A24/IMPURE 



58 0 






0 0 767 

581 

FOREAD 

EQU 

*-L 


0 0 767 

14701000 

582 


ENQ 

WPFB 

SET THE BUFFER LENGTH TO WPFB 

0 U 7 7 0 

41U U 0 015 

58 3 


STQ 

WC 


0 0771 

21001232 

58 4 


LOQ 

FOLENGTH 

LOAD FILE DIRECTORY LENGTH 

0 0 7 72 

03 7 0 0774 

585 


AQJ jLT 

*-Z + 2 


0 0 773 

14600000 

58 6 


ENA 

0 


0 0774 

40001465 

587 


ST A 

FBLK 


0 0775 

30001231 

58 8 


ADA 

FILEDIR 

ADD BASE ADDRESS OF THE DIRECTORY 

0 0 7 76 

1410 2474 

58 9 


ENI 

BUFFER,1 


0 0777 

00700035 

59 0 


RTJ 

READ 

READ A BLOCK FROM THE DIRECTORY 














0 , X 1 

z 

NAME 

BUFFER+FDSYM.Xl 


INITIALIZE FOR THE SEARCH 


FOLGQKZ 

: > ■ 

FDELNTHtXI 

WPFB-FDELNTH+l.Xl 

FOLQQKX 

BUFFER-FOELNTH+FDSYM,XI 
*-Z + 2 

ACCEPT JUMP IF FILE NAME NOT FOUND 

FOLK 
1 

FOREAO 

’•-Z 

ACCOUNT LOAD THE SYSTEM ACCOUNT NUMBER 

USER LOAD THE SYSTEM USER CODE 

BUFFER+FDACCVl 


FDLOOK 

BUFFEK+FQCDAT£,X1 

ZAP 

BUFFER + FDLP »1 
BXPTR 
BUFFER,1 
READ 

8UFFER+2 

4 

*-Z 

*-Z 

BUFFER+7 

ZAP 

BUFFER+1 

ZAP 

ZAP 

BUFFER+5 
HEAOER+2 
*-Z 

IMPURE*!,0 
TRA 

BUFFER+3 
777773 
7777 ZB 
*-Z 

HEADER 

-i 

LOWMEM 
0 3777B 
OVERCHEC 


COMPARE THE ACCOUNT/USER CODE 

JUMP IF DATA IS NOT PRESENT 

SAVE THE BLOCK NUMBER 

READ THE FIRST FILE BLOCK 
LOAD THE LEADING WORD COUNT 
SKIP IF LEGITIMATE 
ITS BEEN ZAPPED 

CHECK THE TRAILING WORD COUNT 

THE BACKWARD POINTER FROM THIS 
BLOCK MUST BE -0 

LOAD THE TRANSFER ADDRESSES 
AND SAVE THEM 

SKIP IF TRA PRESENT 
STORE THE PRIMARY AODRESS 
LOAD THE FWA AND THE WGRD COUNT 
MASK OFF THE OVERLAY AND THE 
SEGMENT NUMBERS 

AND SAVE THEM TOO 
ADJUST SLIGHTLY 

THERE IS A LOWER CORE LIMIT 
JUMP IF IN PAGE ZERO 


77777B 

OVERLAP NO END-AROUND-MEMORY FOR THIS KID 

BUFFER+8 LOAD THE RECORD WORD COUNT 

HEAOER+1 THE HEADER MUST AGREE COMPLETELY 

ZAP 
WCZ 
0,2 

9,3 NINE WORDS INTO THIS FILE BLOCK 

BUFFER,3 LOAD A WORD FROM THE FILE 

r-Z . 

IMPURE.2 SKIP IF THE TRAILING WORD COUNT 

LOWMEM ITS DATA SO STORE IT AWAY 

77777B MASK OFF THE BINARY BIT 

HEAOER+i CHECK IT AGAINST THE HEADER 

ZAP 

*-Z 

*-Z + 3 

IMPURE,0 SKIP IF NO SYSTEM LIBRARY MODS 

SYSL1302 JUMP TO THE MODIFIER ROUTINE 

OEVLUN,2 

DISKOOO.Xl L0A0 CONNECT CODE OF AUTOLOAD DIS 

HEADER+3 LOAD THE SECONDARY TRA ADDRESS 

RW LOAD THE ADDRESSES OF READ'/WRITE 

WAIT FOR THE SYSTEMS PROGRAMMER 

*-Z 

IMPURE JUMP TO THE PRIMARY TRA ADDRESS 
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VI. 0.-.0.9/21/74 £.141 PAGE 12 


BOOT 



0 110 4 

66 8 

LOWMEM EQU 

--7 

01104 

40200000 

669 

STA 

IMPURE,2 

01105 

06300777 

670 

ISG 

WPFB-1,3 

01106 

02301066 

671 

IJI 

MOVE,3 

01107 

20002474 

672 

LUA 

BUFFER 

OHIO 

4 0 0 0.14 67 

6 73 

STA 

BKFTR+1 

0 1111 

14102474 

67 4 

£ NI 

BUFFER s i 

01112 

00700035 

67 5 

RTJ 

READ 

01113 

14300002 

6 7 6 

ENI 

2,3 

0111.4 

25001466 

677 

LUAQ 

6KPTR 

01115 

41001466 

678 

STQ 

BKPTR 

101116 

21002475 

679 

LDQ 

BUFFER+1 

01117 

03401066 

630 

AQJ,EQ 

HOVE 

0112 0 

010 0 10 3 3 

681 

UJP 

ZAP 



682 




01121 

683 

OVERCHEC EQU 

*-Z 


01121 15604001 604 INA 40008+1 

01122 54201074 685 LDI SYSFLAGX,X2 

01123 02601050 686 IJQ STRHEAD, X2 

01124 687 OVERLAP EQU *-Z 

01124 00001124 683 HLT *-Z 


STORE THE WORD AWAY 
SKIP IF ENQ OF FILE BLOCK 
LOOP BACK 

LOAD THE FORWARD POINTER 
SAVE IT FOR FUTURE REFERENCE 

READ IN THE NEXT BLOCK 
SKIP OVER THE POINTERS 
CHECK TO SEE THAT THE LINKS ARE 
THE SANE IN BOTH DIRECTIONS 

JUMP IF EVERTHING IS OK 
THIS FILE HAS BEEN ZAPPED 


DIDDLE THE FWA IN CASE OF SYSLIB 
IS THIS SYSLIB 
JUMP IF SYSLIB 
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S3 V 1,0 
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13 BOOT 





0 1125 



69 0 

SY3LIB01 

EQU 

*-Z 

LOAD THE CARO READER CONNECT CODE 

G 1125 

20001224 



691 

LOA 

CR 

01126 

44001132 



69 2 


SWA 

ROCON 


01127 

22004551 

01:13 2 

1 

69 3 


EACH 

RDCHN 

LOAD THE CARD READER CHANNEL 

01130 

77540000 



69 4 


ACI 


AND PUT IT INTO THE CHANNEL INDEX 

01131 

14600000 



695 


ENA 

0 

SELECT PROGRAM STATE ZERO 


04551 



69 6 

RDCHN 

EQU i C 

*~Z+I 



01132 



697 

ROCON 

EQU 

*-z 


01132 

77000000 



698 


VFD 

A9/CON »A15/IMPURE 

CONNECT TO THE CARD READER 

01133 

01001132 



69 9 


UJP 



01134 

74001464 



70 0 


IN P W 

10,RBUFFER,RBUFFER+20 

01135 

00001440 








0 1136 

U1001134 



701 


UJP 

-”-2-2 


01137 

77300006 



7 02 


IMS 

0 0 0 58 , SENSE 

SENSE FOR CHANNEL BUSY 

0114 0 

01001137 



703 


UJP 

*~Z~1 


0 1141 

77300001 



704 


IMS 

0 0 0 IB j SENSE 


01142 

00001132 



705 


HLT 

ROCON 


01143 

23006200 

01440 

0 

70b 


LGCH 

RBUFFERC 

TEST COLUMN ONE FOR A 7/8 PUNCH 

0 1144 

04700017 



7 0 7 


USE 

179 

SKIP IF A 7/8 PUNCH 

01145 

010 0 1147' 



708 


UJP 

- Z + 2 

CONTINUE IF NO 7/8 PUNCH PRESENT 

01146 

00003700 



709 

710 

711 


HLT 

37 0 08 

OTHERWISE, STOP 

0 1147 

14173776 




EMI 

777768-40OOBjXI 

ZERO MEMORY BEFORE 

0 115 0 

40104000 



712 


STA 

400 OB,XI 

READING IN THE OVERLAY 

01151 

02501150 



713 


IJO 

*-Z-i,Xl 






714 





01152 

25001440 



715 


LOAQ • 

RBUFFER 

LOAD THE FILE NAME 

01153 

45000001 



716 


ST A a 

NAME 

SAVE IT FOR THE DIRECTORY SEARCH 

01154 

14600077 



717 


ENA 

77B 


0 1155 

420 O'4363 

01074 

3 

718 


SACH 

SYSFLAG 

SET THE SYSTEM MODIFICATION FLAG 

0 1156 

01000761 



719 


UJP 

SEARCH 

GO FIND ANO LOAD THE OVERLAY 


0115 7 



720 

3YSLJ302 

EQU 

*.-Z 


01157 

20001470 



721 


LOA 

HEADER 

LOAD THE FWA FOR THE OVERLAY 

0116 0 

17674000 



722 


ANA 

74 0 0 OB 

MASK TO A PAGE BOUNDARY 

Olibl 

44000200 



723 


SNA 

LW A 

SAVE FOR FUTURE USE 

01162 

1460 4 0 0 0 



724 


ENA 

4 0 0 0 B 

SET THE BUFFER LENGTH TO A PAGE 

01163 

40000015 



725 


STA 

wc 


0 116 4 

77700000 



726 


SLS 


WAIT FOR THE SYSTEMS PROGRAMMER 

0 1165 

14277670 



72 7 


ENI 

-71,2 

START THE SCAN IN COLUMN 10 


0116b 



728 

SYSLI603 

EQU 

*-Z 


0 1166 

02201170 



729 


IJI 

*-Z *2,2 


01167 

01001125 



73 0 


UJP 

SYSLIBOl 

LOOK FOR MORE MODIFICATIONS 

0117 0 

14600060 



731 


ENA 

60S 

BCD BLANK 

01171 

23406317 

314 & 3 

3 

73:2 


LOCH 

RBU F FERC + 7 9 , 2 

LOAD A CHARACTER 

0117 2 

03401166 



733 


A Q J , E Q 

SYSLIB03 

LOOP SACK IF A BLANK 

01173 

13000030 



t 34 


SHAQ 

24 

PUT THE CHARACTER INTO A 

01174 

05600010 



7 35 


ASG 

8 , 

SKIP IF NOT AN OCTAL DIGIT 

01175 

01001207 



7vto 


UJP 

SYSLI806 

PACK A FILE BLOCK NUMBER 

01176 

00001176 



73 7 


HLT 

•”-Z 

CARD FORMAT ERROR 


0117 7 



7 38 

S Y S L1 8 0 4 

EQU 

z 


01177 

23406317 

01463 

3 

7 39 


LQCH 

R8UFFERC + 79 » 2 

LOAD A CHARACTER 

012 00 

05700010 



74 0 


QSG 

8 

SKIP IF NOT AN OCTAL DIGIT 
AOO-MULTIPLY THIS DIGIT IN 

01201 

U10U1205 



741 


UJP 

SYSLIB05 

01202 

04700060 



742 


QSE 

60 B 

SKIP IF A BLANK 

012 0 3 

00001203 



743 


HLT 

*-Z ■ 

CARD FORMAT ERROR 

012 04 

01001210 



744 


UJP 

SYSLIB07 

THE NUMBER IS NOW PACKED 


01205 



7 45 

SYSLI 0 05 

EQU 

*-Z 


0 1205 

12400025 



7 46 


SHQ 

21 

PACK THE OCTAL NUMBER 

0120 6 

13 0 QUO 0 3 



747 


H A Q 

3 



012 0 7 



74 8 

3YSLX806 

EQU 

*-Z 


012 0 7 

02201177 



74 9 


IJI 

SYSLI804,2 

LOOP BACK IF MORE CHARACTERS 


01210 



75 0 

3YSLI8Q7 

EQU 

”-Z 


01210 

54100200 



751 


LDI 

LWA ,X1 

LOAD THE PAGE ADDRESS 

01211 

05104000 



752 


ISG 

40008,XI 

SKIP IF LEGAL 

01212 

00001212 



753 


HLT 

*-Z 

THIS IS SERIOUS BUSINESS 

01213 

00700045 



754 


RTJ 

WRITE 

WRITE THE PAGE OUT 

01214 

OlOOli&b 



755 


UJP 

SYS L IB 03 

LOOP BACK 


a> 

o> 

o 

o 

o 

o 

o 

o 

o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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CD 


01215 

75 0 

RW 

EQU 

*-Z 



0i2i5 

00350043 

75 9 


V F 0 

01/0,Ali/REAU,01/0 

,All/WRITE 




7 b 0 






: 

01216 

761 

BLKLIST 

EQU 

“-Z 

SYMBOLS FROM SYMBOL BLOCK 

Q 

!'■■■. 

01216 

76 2 

ACCOUNT 

EQU 

*-Z 

SYSTEM ACCOUNT NUMBER 

01216 

21232346 

7 6 3 


BCD 

2, ACCOUNT 




0.1220 

764 

USER 

EQU 

*-Z 

SYSTEM USER CODE 


01220 

64622551 

7 6 5 


SCO 

2 , USER 


n 


01222 

765+001 

COMMANDS 

EQU 

*-Z 



01222 

23464444 

765+002 


BCD 

2,COMMANDS 




012 24 

766 

CR 

EQU 

* - Z 

CARD READER CONNECT CODE 


0:1224 

23516060 

76/ 


BCD 

2,CR 


a 

01226 

44676222 

76 3 


BCD 

2 , MXSBLOCK 

MUST BE LAST 


0 0012 

769 

BLKLNTH 

EQU 

--Z-BLKLIST 

LENGTH OF SYMBOL TABLE 




if u 

771 





o 



7 72 







773 


IF 

Z-1777B-1 GE 0, 

SOMEBODY BLEW IT 

1 



774 







01230 

775 

SCRATCH 

EQU 

*-Z 


o 


012 3 0 

776 

BLKTEMP 

EQU 

*-Z 


01230 


777 


8SS 

1 





778 







01231 

779 

FILEOIR 

EQU 

*-z 

FIRST BLOCK OF THE FILE DIRECTORY 

o 

01231 


78 0 


BS3 

2 




01232 

781 

FDLENGTH 

EQU 

FILEDIR+1 

LENGTH OF THE FILE DIRECTORY 



012 3 3 

782 

HASH 

EQU 

*-Z 



01233 


733 


ess 

1 


o 


01234 

733+001 

HPF8 

EQU 

*-Z 

LAST BLOCK OF LIBRARY+i 

01234 


783+002 


BSS 

. i 




01235 

784 

ERRORS 

EQU 

*~Z 

DISK ERROR COUNTER 


01235 


785 


sss 

i 


o 


01236 

786 

DEi/LUN 

EQU 

*-Z 




G 12 37 

787 

OEVBLK 

EQU 

DEVLUN+-1 



01236 


783 


BSS 

OEVLIST+DEVLIST+2 




014 4 0 

739 

RBUFFER 

EQU 

*-Z 


o 


06200 

790 

RBUFFERC 

EQU *C 

*~2 



0144 0 


791 


BSS 

■. " 20 




01464 

792 

ADDRESS 

EQU.. 

■ : ^—,2 . : 



01464 


79 3 


BSS 

1 


o 


01465 

7 94 

FBlK 

EQU 

*-z 



0 1465 


79 5 


BSS 

1 




014 66 

798 

BKPJR 

EQU 

*-z 



01466 


799 


ess 

2 


o 


0147 0 

8 0 0 

HEADER 

EQU 

*-Z 



01470 


8 0 1 


ass 

4 




014 74 

802 

MXSLIST 

EQU 

*-Z 



01474 


8 03 


BSS 

WPFB 


o 


0 2474 

804 

BUFFER 

EQU 

*-Z . 



02474 


805 


BSS 

NPFB 




02244 

806 

SCRATCHL 

EQU 

. *-Z-.SCRATGH 





807 


IF 

*-Z-370GB GE Q, SOMEBODY BLEW IT 

o 



8 08 


END 




I MO LINES WITH ERRORS 

! 






o 









o 


o 

o 

o 


o 





a 

A S S E M 0 L E R / 0 S 3 

VI.0 09/ 

21/74 2141 

PAGE 

i 800 r 



CD 

ACCEPT 

0 [J A 5 5 

39 6 

415 

GG475P 

5 64 

0 0 8 7 4 P 

ACCOUNT 

U 1 216 

76 2 

6U6 

GIG lap 




ADDRESS 

014 64 

79 2 

145 

OO1.0 5P 

20 3 

00171P 


AQDSAVE 

0 U 0 7 6 

137 

126 

00063P 



0 

BADLA3EL 

0 G 8 A 4 

534 

426 

0 0 5 0 6 P 

505 

0 0 6 0 7 P 


BADHESS 

0166 7 

323 

325 

0 036 OP 

535 

0 0644P 


BAuMESSL 

0 0 014 

325 

5 36 

00645P 




BIT23 

00 005 

5 1 

501 

006U3P 

569+33 

0 0 736P 

o 

3KPTR 

0 i 4 b 8 

79 3 

616 

0.10 26P 

6 76 

01110P 

8L ANi<S 

0 0476 

416 

3 99 

00455P 




.BLKLIST 

G I. El8 

761 

769 

0123OP 

547 

Q0653P 


BLKLNIH 

0 0 012 

769 

558 

00&65P 



o 

BLKTEMP 

01230 

776 

15 8 

00121P 

185 

00152P 

BLOCKBUF 

U4000 

■ 6 ■■■ 

4 69 

0 055 OP 

474 

0 0 5 5 5 P 


BLOCKLOG 

0 0 547 

46 7 

520 

00626P 




BUFFER 

0 2 4 7 4 

3 0 4 

373 

Q0426P 

373 

004.26P 

o 




5 0 2 

Q0604P 

5 07 

a 06 up 




525 

0 0 6 3 3 P 

5.26 + 1 

00635P 





56.9+16 

U0.717P 

569+18 

00721P 





613 

01023P 

615 

01025? 

o - 




628 

010 4.1P 

631 

010 4 5 P 




679 

01116P 




CNCOUE 

00225 

239 

129 

GOO 66P 

293 

0Q3Q5P 


COMMANDS 

012 2 2 

76 5 + 1 

56 9 + 3 

00703P 



n 

COMPLAIN 

0 0 25 0 

26 2 

99 

00043P 

120 

U 0 957 P 


CON 

0 0 7 7 0 

4 

2 40 

0Q225P 

362 

0 0 4.13 P 


CONNECT 

00223 

23 6 

■ .165 

0 0117 P 




CONNECTX 

0 0 222 

234 

242 

00227P 



O 

C0H3AVE 

0 0 6 0 2 

49 9 

490 

Q 05 7IP 

5 28 

00640P 


CONVERT 

0 0675 

5 6 5 

414 

0Q474P 




CR 

01224 

766 

.691 

01125P 




DEV3LK 

01237 

78 7 

124 

00061P 

173 

0 0140 P 

o 

OEVLIST 

0 010 0 

5 

7 88 

01236P 

788 

01238P 

DEVLUN 

01236 

7 6 5 

78 7 

0123&P 

127 

■0 0 0 6 4 P 


DISK 

00004 

4 9 

472 

00553P 




OISKOQQ 

0 0545 

462 

423 

00504P 

662 

01Q77P 

o 

D K L NTH 

(30070 

313 

297 

08311P 



DKLOOP 

0 064 0 

52 7 

49 2 

0Q573P 

496 

Q0577P 


OKHBLK 

015 62 

311 

283 

0G274P 



o 

QKM3G 

015 0 2 

30 0 

313 

0 0 3 3 6 P 

296 

00310P 

QKMSGADR 

01522 

3.04 

277 

00266P 



OKMSGORV 

01544 

.308 

295 

0Q307P 




DKMSGEC 

01503 

3 02 

271 

0 0 2 6 0 P 




DKMSGEXS 

015 35 

306 

291 

0 0 3 0 3 P 



o 

DKMUM 

0Q020 . 

b 

487 

0 056 7P 




OKSCAN 

0 057 0 

488 

529 

0ao41P 




DKSCANX 

00563 

482 

464 

O0546P 

477 

0 0 5 6 0 P 


DK3CANX1 

0 0 552 

4 8 0 

484 

0 0 5 6 4 P 

531 

Q0643P 

o 

ERROR 

0 0230 

2:4 3 

97 

0 0 0 41P 

114 

00051P 




223 

00210P 

22 8 

0 0 215P 


ERRORS 

01235 

7 8 4 

141 

QQ1Q1P 

247 

00233P 


ESI A rus 

00 2 76 

285 

248 

00232P 



o 

F3LK 

01465 

794 

5 87 

0 Q 7 74 P 

6 04 

01Q13P 

FOACC 

0 0 002 

9 

10 

000 OOP 

610 

01020P 


*. FDATE 

0 0 0Q4. 

11 






* FDSUSY 

00011 

16 





o 

FDCDATE 

0 01310 

15 

613 

Q1Q23P 



FOELNTH 

0 0 0 12 

17 

5 98 

010 0 5 P 

599 

010 06P 


* FOEPP 

0 0 0 0 6 

13 






FOLENGTH 

01232 

781 

584 

9 0 7 71P 



O' 

FDLOUK 

010 0 5 

.5 9 7 

612 

01022P 



FOLOOKX 

01 0 Q1 

592 

600 

01007P 




FDLOOKZ 

Q1015 

607 

5 96 

01QQ4P 



o 

FDLP 

00005 

12 

615 

01025P 



F 0 K E A 0 

0 0 767 

581 

606 

01015P 



FDSELECT 

0 0 765 

578 

5 24 

00632P 




FOSYM 

00 0 0 0 

8 

594 

01002P 

; 6 01 

0 1 0 10 P 

o 

- FDTFL 

0 0 0 0 7 

14 





* FDURN 

0 0 0 0 3 

10 






FILEOIR 

01231 

779 

781 

01233P 

522 

00630P 


FN A 

a 0 20 1 

21 o 

147 

0 010 7 P 

160 

00123P 

o 

GLERCH 

0 0 536 

453 

45 0 

00533P 



HASH 

01233 

78 2 

526 

0 0 & 3 4 P 

576 

0 0 7 6 3 P 

HEADER 

0147 0 

80 0 

629 

010 4 2 P 

635 

01 0 5 0 P 


HP FB 

01234 

73 3 + 1 

526 + 3 

ij 0 6 3 7 P 

569+22 

0.0.725 P 

o 

I DEN r 

00317 
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